object UpLoad: TUpLoad Left = 116 Top = 83 BorderIcons = [biSystemMenu, biMaximize] AutoScroll = False Caption = 'Uploader' ClientHeight = 523 ClientWidth = 631 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PanelMain: TPanel Left = 0 Top = 0 Width = 631 Height = 523 Align = alClient BevelInner = bvLowered BorderWidth = 1 BorderStyle = bsSingle TabOrder = 1 object PanelLog: TPanel Left = 3 Top = 439 Width = 621 Height = 77 Align = alBottom BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 0 object Logging: TRichEdit Left = 0 Top = 0 Width = 617 Height = 73 TabStop = False Align = alClient Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] HideSelection = False ParentFont = False ParentShowHint = False ReadOnly = True ScrollBars = ssVertical ShowHint = False TabOrder = 0 WordWrap = False end end object PanelInfoLog: TPanel Left = 3 Top = 192 Width = 620 Height = 242 BevelOuter = bvNone TabOrder = 1 object PanelInfo: TPanel Left = 0 Top = 0 Width = 620 Height = 242 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 0 object ListDLoad: TListView Left = 0 Top = 0 Width = 616 Height = 238 Align = alClient ColumnClick = False OnClick = ListDLoadClick OnDblClick = ListDLoadDblClick Columns = < item Caption = 'Url' Width = 120 end item Caption = 'IP address' Width = 90 end item Caption = 'Files' Width = 80 end item Caption = 'Remote path/name' Width = 120 end item Caption = 'Local path/name' Width = 120 end item Caption = 'Size of File' Width = 80 end> HideSelection = False OnEditing = ListDLoadEditing OnDragDrop = ListDLoadDragDrop OnDragOver = ListDLoadDragOver PopupMenu = PopupMenu1 TabOrder = 0 ViewStyle = vsReport SmallImages = SmallImages StateImages = SmallImages end end end object PanelButtons: TPanel Left = 3 Top = 3 Width = 621 Height = 36 Align = alTop BevelInner = bvLowered TabOrder = 2 object btDelete: TRxSpeedButton Left = 3 Top = 3 Width = 30 Height = 30 Hint = 'Delete selected Url' Enabled = False Flat = True GrayedInactive = False ParentShowHint = False OnClick = DeleteUrl1Click end object btDownload: TRxSpeedButton Left = 34 Top = 3 Width = 30 Height = 30 Hint = 'Download selected Url' Enabled = False Flat = True GrayedInactive = False ParentShowHint = False OnClick = ListDLoadDblClick end object btStop: TRxSpeedButton Left = 65 Top = 3 Width = 30 Height = 30 Hint = 'Stop downloading Url' Enabled = False Flat = True GrayedInactive = False ParentShowHint = False OnClick = Stop1Click end object PanelTime: TPanel Left = 306 Top = 2 Width = 313 Height = 32 Align = alRight BevelOuter = bvNone TabOrder = 0 object Label5: TLabel Left = 7 Top = 9 Width = 69 Height = 13 Caption = 'Current Time :' end object Label3: TLabel Left = 161 Top = 2 Width = 69 Height = 13 Caption = 'Elapsed time :' end object Label29: TLabel Left = 181 Top = 16 Width = 49 Height = 13 Caption = 'Time left :' end object CurrentTime: TPanel Left = 83 Top = 7 Width = 70 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object TimeWork: TPanel Left = 235 Top = 0 Width = 70 Height = 16 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object TimeLast: TPanel Left = 235 Top = 16 Width = 70 Height = 16 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end end object SplitterInfoLog: TRxSplitter Left = 3 Top = 434 Width = 621 Height = 5 ControlFirst = PanelInfo ControlSecond = PanelLog Align = alBottom OnPosChanged = SplitterInfoLogPosChanged end object WorkPanel: TPanel Left = 3 Top = 39 Width = 621 Height = 153 BevelInner = bvLowered TabOrder = 4 object WorkPanelSpeed: TPanel Left = 2 Top = 3 Width = 617 Height = 72 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 0 object EveryTime: TPanel Left = 191 Top = 2 Width = 189 Height = 68 BevelOuter = bvNone TabOrder = 0 object Label11: TLabel Left = 13 Top = 47 Width = 162 Height = 10 AutoSize = False Caption = '|.......|.......|.......|.......|.......|.......|.......|.......' + '|.......|.......|' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 11 Top = 56 Width = 167 Height = 10 Caption = '0 (b/s) 5000 100' + '00' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RxLabel3: TRxLabel Left = 39 Top = 6 Width = 109 Height = 14 ShadowColor = clWhite Caption = 'Average speed (b/s) :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PanelAvSpeed: TPanel Left = 12 Top = 22 Width = 166 Height = 28 BevelInner = bvLowered BorderWidth = 1 TabOrder = 0 object LabelBot1: TLabel Left = 3 Top = 3 Width = 160 Height = 22 Align = alClient Color = clWhite ParentColor = False end object AvSpeedBar: TLabel Left = 3 Top = 3 Width = 160 Height = 22 AutoSize = False Color = clMaroon ParentColor = False end object AvSpeedNum: TRxLabel Left = 48 Top = 6 Width = 8 Height = 14 ShadowColor = cl3DLight Transparent = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end end object PanelDownload: TPanel Left = 2 Top = 2 Width = 189 Height = 68 BevelOuter = bvNone TabOrder = 1 object Label13: TLabel Left = 12 Top = 48 Width = 162 Height = 10 AutoSize = False Caption = '|.......|.......|.......|.......|.......|.......|.......|.......' + '|.......|.......|' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 9 Top = 56 Width = 168 Height = 10 Caption = '0 (%) 50 ' + ' 100' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object RxLabel2: TRxLabel Left = 66 Top = 6 Width = 58 Height = 14 ShadowColor = clWhite Caption = 'Uploaded :' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ProgPanel: TPanel Left = 11 Top = 22 Width = 166 Height = 28 BevelInner = bvLowered BorderWidth = 1 Ctl3D = True ParentCtl3D = False ParentShowHint = False ShowHint = False TabOrder = 0 object LabelBot: TLabel Left = 3 Top = 3 Width = 160 Height = 22 Align = alClient Color = clWhite ParentColor = False end object ProgBar: TLabel Left = 3 Top = 3 Width = 160 Height = 22 AutoSize = False Color = clNavy ParentColor = False end object Percent: TRxLabel Left = 61 Top = 5 Width = 8 Height = 17 ShadowColor = cl3DLight Transparent = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end end object PanelGraphic: TPanel Left = 380 Top = 2 Width = 234 Height = 68 BevelOuter = bvNone TabOrder = 2 object lbGraph: TLabel Left = 33 Top = 59 Width = 59 Height = 10 Caption = 'max 5000 bytes' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object PanelGraph: TPanel Left = 33 Top = 0 Width = 197 Height = 61 BevelInner = bvLowered BorderWidth = 1 Color = clBlack TabOrder = 0 object Graph: TImage Left = 3 Top = 3 Width = 191 Height = 55 Align = alClient ParentShowHint = False ShowHint = False end end end end object PanelCalc: TPanel Left = 2 Top = 75 Width = 617 Height = 76 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 35 Top = 6 Width = 57 Height = 13 Caption = 'Size of file :' end object Label8: TLabel Left = 252 Top = 53 Width = 64 Height = 13 Caption = 'This upload :' end object Label2: TLabel Left = 226 Top = 29 Width = 90 Height = 13 Caption = 'Previous uploads :' end object Label7: TLabel Left = 248 Top = 6 Width = 68 Height = 13 Caption = 'Total upload :' end object Label4: TLabel Left = 456 Top = 6 Width = 64 Height = 13 Caption = 'Bits per sec :' end object Label10: TLabel Left = 435 Top = 29 Width = 85 Height = 13 Caption = 'Av. speed (b/s) :' end object Label6: TLabel Left = 37 Top = 52 Width = 57 Height = 14 AutoSize = False Caption = 'Have rest :' end object Label9: TLabel Left = 481 Top = 52 Width = 39 Height = 13 Caption = 'Attemt :' end object Label30: TLabel Left = 30 Top = 29 Width = 62 Height = 13 Caption = 'Left upload :' end object SizeOfFile: TPanel Left = 97 Top = 5 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object CurrentSize: TPanel Left = 321 Top = 5 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object Previous: TPanel Left = 321 Top = 28 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object ThisSize: TPanel Left = 321 Top = 51 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object SizeEveryTime: TPanel Left = 525 Top = 5 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object AvSpeed: TPanel Left = 525 Top = 28 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object HaveRest: TPanel Left = 97 Top = 51 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 end object Attempt: TPanel Left = 525 Top = 51 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 end object BytesLeft: TPanel Left = 97 Top = 28 Width = 84 Height = 18 BevelInner = bvLowered Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 end end end end object PanelExit: TPanel Left = 192 Top = 217 Width = 271 Height = 62 BevelInner = bvLowered Caption = 'Waiting for exit from uploading ...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 584 Top = 292 object Download1: TMenuItem Caption = '&Upload to Url' OnClick = ListDLoadDblClick end object N2: TMenuItem Caption = '-' end object Stop1: TMenuItem Caption = '&Stop upload' OnClick = Stop1Click end object Stopalluploads1: TMenuItem Caption = 'S&top all uploads' OnClick = Stopalluploads1Click end object N4: TMenuItem Caption = '-' end object DeleteUrl1: TMenuItem Caption = '&Delete selected Url' OnClick = DeleteUrl1Click end end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 585 Top = 357 end object SmallImages: TImageList Left = 585 Top = 324 end end